home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Report Writers / Crystal Repot 9.0 Full CD version / Setup.exe / Windows / System32 / HTMLRE90.DLL / HTML / 11536 < prev    next >
Encoding:
Text File  |  2002-07-05  |  2.2 KB  |  75 lines
  1. <html>
  2. <head>
  3. <TITLE>Crystal Report Viewer</TITLE>
  4. </head>
  5. <SCRIPT LANGUAGE="JavaScript">
  6. </SCRIPT>
  7. <BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript topmargin=0 leftmargin=0>
  8.  
  9. <OBJECT ID="CRViewer"
  10.     CLASSID="CLSID:2DEF4530-8CE6-41C9-84B6-A54536C90213"
  11.     WIDTH=100% HEIGHT=99%
  12.     CODEBASE="%13/activeXViewer/activexviewer.cab#Version=%4">
  13. <PARAM NAME="EnableDrillDown" VALUE=%5>
  14. <PARAM NAME="EnableExportButton" VALUE=%6>
  15. <PARAM NAME="DisplayGroupTree" VALUE=%7>
  16. <PARAM NAME="EnableGroupTree" VALUE=%14>
  17. <PARAM NAME="EnableAnimationControl" VALUE=%8>
  18. <PARAM NAME="EnablePrintButton" VALUE=%9>
  19. <PARAM NAME="EnableRefreshButton" VALUE=%10>
  20. <PARAM NAME="EnableSearchControl" VALUE=%11>
  21. <PARAM NAME="EnableZoomControl" VALUE=%12>
  22. <PARAM NAME="EnableSearchExpertButton" VALUE=0>
  23. <PARAM NAME="EnableSelectExpertButton" VALUE=0>
  24. </OBJECT>
  25.  
  26.  
  27. <SCRIPT LANGUAGE="VBScript">
  28. <!--
  29.  
  30. Sub window_onLoad()
  31.     Page_Initialize()
  32. End Sub
  33.  
  34. Sub Page_Initialize
  35.     On Error Resume Next
  36.     Dim webBroker
  37.     Set webBroker = CreateObject("WebReportBroker9.WebReportBroker")
  38.     if err.number <> 0 then
  39.         window.alert "The Crystal ActiveX Viewer is unable to create it's resource objects."
  40.         CRViewer.ReportName = "%1"
  41.     else
  42.         Dim webSource0
  43.         Set webSource0 = CreateObject("WebReportSource9.WebReportSource")
  44.         webSource0.ReportSource = webBroker
  45.         webSource0.URL = "%2"
  46.         webSource0.PromptOnRefresh = %15
  47.         %3
  48.         CRViewer.ReportSource = webSource0
  49.     end if
  50.     CRViewer.ViewReport
  51. End Sub
  52.  
  53. -->
  54. </SCRIPT>
  55. <OBJECT ID="ReportSource"
  56.     CLASSID="CLSID:934CC260-C5AA-43C4-A657-7B70C5B3DAE1"
  57.     HEIGHT=1% WIDTH=1%
  58.     CODEBASE="%16/activeXViewer/activexviewer.cab#Version=%17">
  59. </OBJECT>
  60. <OBJECT ID="ViewHelp"
  61.     CLASSID="CLSID:4B5C9C28-3806-47b5-89A9-93063323160F"
  62.     HEIGHT=1% WIDTH=1%
  63.     CODEBASE="%18/activeXViewer/activexviewer.cab#Version=%19">
  64. </OBJECT>
  65. <OBJECT ID="ReportParameter"
  66.     CLASSID="CLSID:41289E02-198A-4034-8CF9-5A8739A80D0D"
  67.     HEIGHT=1% WIDTH=1%
  68.     CODEBASE="%20/activeXViewer/reportparameterdialog.cab#Version=%21">
  69. </OBJECT>
  70. <div>
  71. <!-- this empty div prevents IE from showing a bunch of empty space for the controls above.. I don't know why though. -->
  72. </div>
  73. </body>
  74. </html>
  75.